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442 EMELINE EO ROS TT ee ;F 
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oo000e A 433 cific SET LOC +] Ve ae 
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o00003 -A 497 '7¢ oe ee _Loc+1 We 2 
000003 A 492 ACL oEY OC 4-HORD ACCUMULATOR Ve oF 
Hoono007 RA $99 LOC ce Lot+4 | | rs oO? 
oo0g0g007 A S00 ACHE SET aes ADDRESS OF DECIMAL DIGIT ARRAY We i? 
000019 &A S301 LOC ath SEM LAC+] 2 me 
nhooo0i0 aA =O0e AD: CB eat LOC | DCR/CFCB ADDFESS Ve a? 
000011 4 200 LHC pa aed LOoCc+] Ve Mis 
000011 4A 504 AFSS SEF : Ee ADDRESS OF FORMAT SCE Ve 17 
oon01e &a S03: ‘ihe ET Lyt+1 | ut oe Aion 
00001le A S06 ASPAR SET _GE ADDRESS OF "Ct GROUP ELDOCK ve 7 
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600013 A S07 LOC SET Loc+t Ve 0 
900110 A SOS AIBUF SET (SCB+! LIST ITEM ADDRESS V2 90 
000013 A S09 AISCB SET LOc ADDRESS OF LIST ITEM SCB Ye 0 
000014 A 310 LOC SET LOCc+tI1 Ye 1) 
000027 A Si1i ALEF SET BSCR+1 ADDRESS OF LOGICAL BUFFER VE 9 
000014 A S12 ALDC SET Loc ALUC ENTRY FLAG v2 0 
900015 a S13 Loc SET LOC+1 ¥2 0 
oo00013 A Sid ANPOS SET LOC ADDRESS OF VSFORTIGO POPC SUMP Yo C 
o00016 & 715 toc oat Loc? Ye C 
000016 A S16 ANRB SET LOC ADDRESS OF VSFORTIO DATA BLOCK v2 0 
s00017 A Si? LOC SET LOC+4 v2 6 
000017 A 518 ADPSTK SET oc ADDRESS OF OP STACK ¥2 90 
po0c2eo0 A S19 Loc SET LOC+! v2 0 
000020 A S20 APBF SET LOc ADDRESS OF PHYSICAL BUFFER ve 0 
go00g1 A Sei Loc SET LOC+1 ve 0 
co000e1 A Se2 ASCB SET IOC SCAN BLOCK ADDRESS v2 0 
poo00e2 aA S23 Loc SET LOC+! v2 0 
go0ce2 A S24 ASFL SET LOC ‘m* FLAG v2 0 
cooces A S25 LUC SET LOC+! 2 0 
g00023 A S26 ASYSDC SET INC ADDRESS OF SYSTEM DCB v2 0 
eo002z4 A S27 Loc SET LOc+t! : ve 0 
g90030 A S23 BCHAR SET BSCB+e2 BUFFER CHARACTER v2 0 
000031 A S293 BCODE SET RICB+3 BUFFER CHARACTER CODE v2 2 
g000e4 A S30 BEXP SET LUE BINARY EXPONENT VZ 0 
Ccooages A voi LOC SET LOc+1 . Ve U 
Q00026 A S32 BFPT SET BECE BUFFER CHARACTER POINTER V2 0 
co0ces A S33 EFWPT SET L.oc BUFFER HORD POINTER v2 0 
po00026 A $34 LOC SET LUC+ v2 0 
O000es A 335 ESCB st A LOC BUFFER SCE | ¥2 C 
go00032 A S36 LOE SET LOC+4 Ve oO 
cogo0se A S337 CHB SET Loc DECIMAL DIGIT ARRAY ce 0 
g00050 A S38 Loc SET Loc+14 VB 
0900059 A 339 CHEPT SE LOC CHE ARRAY POINTER Ve if 
900031 4 740 LOC SE i LOC+1 We 0 
000051 A S41 CHNHDR SET Loc FCE CHAIN HEADER ve fC 
gpo000S2 A S42 Loc SET int+t v2 0 
000052 A 543 COUNT SET Loc COUNTER v2 6 
000053 A S44 LOC SET LNS+! We oo 
000053 A S45 C¥FL SET LOC CHARACTER VALIDITY FLAGS vz 6 
000054 A 546 LOC SET Loc+t V2 ¢ 
000054 A 547 D SET Loc FRACTIONAL FIELD WIBTH V2 0 
c000S5 aA S4e Loc SET LOC+! ve ot 
000055 A $49 DEXP SET Loc DECIMAL EXPONENT We 0 
oo0ugSs6 A 339. tuc a 2A LOC+¢1! ve g 
Ooc0Se A SS1i DT SET LOC WORKING FRACTIONAL FIELD WIDTH Ve a 
000057 A S52 Luc SET LOC+1 ve 6 
000057 A SS3 EDEXP SET Oc EXPLICIT DECIMAL EXPONENT v2 0 
e00069 A $54 Loc SET LRO+ | 2 9 
ecoo060 A S55 ERN SET Loc ERROR NUMBER ve 3 
g00061 A $56 LOC SET .OC+1 VE 0 
GO0064 A SS7 FCHAR SET FiClk+e2 FORMAT CHARSCTER Vee U 
900065 A SS8 FCODE SET FSOB+3 FORMAT CHARACTER CODE We 0 
000061 A S59 FBLKEY SET LOC FIELD DESCRIPTOR KEY v2 0 
cooo62 A 360 LAC SET Looe! a: 
p00062 A S61 FMFT SET FSCR FORMAT STRING POINTER v2 2 
0000632 A 362 FRAT see FECE?] ADDRESS OF FORMAT 21 k7NGCO IF NONED v2 0 
S00CSe2 A 363 FRPT SET FSCS FORMAT STRING CURRENT POINTER v2 0 
coo06e A S64 FSCB Set - LOC : FORMAT STRING SCB ¥2 0 
coo0066é A 365 LOC a _OC+4 = 0 
000066 A S66 GHRPC SET Loc "¢* GROUP DYNAMIC PEPEAT Count VE 6 
GOBQ77 A 867 LOC SET .Cii+9 | Ye U 
Ooo0072 A 363 GFRPT SET GURPE+3 "¢* GROUP FORMAT POINTER ve 0 
000074 A S69 GSRPC SET GURPC+6 "¢* GROUP STATIC REPENT COUNT fg 
000111 A S70 ICHAR SET ISCB+2 LIST ITEM CHARACTER 2 0 
C0007 A 371 IDEXP oe F LOC IMPLICIT DECIMAL EXPUNENT Ve a 
oco0i00 aA S72 Loc Soy _CC+1 VR 3 
Gco0c100 A $73 IFW SET “oc INTEGER FIELB WIDTH VE 
000101 A S74 LDS SEY Locet ve 3 
000101 A S75 L1IBSZ SET Luc INDIVIDUAL ITEM BYTE SIZE Ve of 
900102 A 576 Lot SET Lmo+t ve S 
000102 A S77 IINSZ SET «Oe INRIVIDUAL ITEM WORD SIZE WE 3 
000103 A S?8 LOC ae | LOM+1 | | ec 8 
600102 A S72 INFL SET LOC INITIAL ENTRY FLAG VER of 
009104 Aa $80 LOC SET LOC+) v2 G 
GO0iS4 A 331 I0CONT S$eT LOC ¥SIQOC CONTROL WORD ve 7) 
CGOOiGS A “ec LOL SET LOc+j] ve Q 
Ooo105 A 3S IOLNK SET ~ EL IOLINK CONTROL WORD = 0 
000106 a S84 Loc SET LOc+! V2 0 
000106 A SSS 10S8TAT SET GC Ivf STATUS Ve 0 
oo010” A S86 LOC SET Loc+e! zo 
000107 A S87 ISCB SET OC ITEM SCB e 68 
600113 A Ss8 LOC SET -OC+4 VE 0 
000113 A S89 ITENAD SET LOL ADDRESS OF LIST ITEM ve 0 
900114 A S99 LMC: SET Lore ve 0 
000114 R S3i ITEMWC SET -1 SE COUNT OF WORDS REMGINING IN ITEM v2 0 
000115 A $92 Loc SET LOC+1 | i” V2 9 
C05115 A S33 ITMINC SET LOC LIST ITEM WORD INCREMENT Ve 0 
ooon116 A ~34 LOC St 7 LOn+1 ° We C 
oC9V116 &A 372795 ITMOBE SET 1 oC LIST ITEM MODE ve () 
QO0O011- A 796 LOC SET LOC+1 ve a 
000123 A S97 LEOV SET RUC LOGICAL RECORD OVERLAP Ve 4 
000117 A ~ S98 LISTFL SET LUC LIS} DATA XFER FLAG We 0 
bo0012e0 A S939 LAC SET L_DC+] , Ye C 
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oo0c120 A 600 LNKCNT SET 1oc LINK COUNT ye a 
Oo0d01ie1 A 601 LOC SET LOC+1 Yer 0 
bo01e1 & 602 LRECNG SET Loc LOGICAL RECORD NUMBPBER Ye 0 
~ “" 9001le2 A 603 LOC SET Loc+i We Ou 
o00182@ A 604 LREZ SET Lee LOGICaL RECCRD SIZE Ve oO 
on00123 A 6053 LOC SET LOCc+1 VP OQ 
000123 A 606 LRNWC SET LOc LOGICAL RECORD REMAINING WORD COUNT. Ve a 
000124 A 607 LOL SET LOt+l Ve oo 
Oo01l1e4¢ A 6083 MOY SET Loc MULTIPLY OVERFLOW SWITCH We oO 
000125 A 609 LOC SET Lnc+1 Ve og 
O001e5 A 610 WN SET LOC H/T/SM FIELD WIDTH Ve 0 
CO0LeS6 A 611 LOC SET LOC+] Ye q 
900126 A 612 NFF SET Lee NUMERIC FORMAT FIELD VALUE v2 og 
00012? A 613 LOC Se tT LoOC+i Ve a 
Oog0012e7? A 614 OPSTK noe ae | LOC OP STACK Ve 0 
000141 A 613 LOC SET LOC+STKSZ V2 @ 
ccoog00 A 616 DOFPSTKP SET C OP STACK POINTER FG oO 
000141 A 617 PARLVY SET Loc FORMAT *°¢C* GROUP LEVEL COUNT fe 60 
oo0014¢2 A 618 LOC SET LOCc+] ye o¢ 
GG014e A 613 FERC SET LUC PHYSICAL BUFFER RECORD COUNT "ve 0 
000143 A 620 LOS SET (ocel | we oO 
go9C143 A 5621 PESZ SET Loc PHYSICAL BUFFER SIZE ‘2g 
000144 QA 622 LOC SET 1ocel f 9g 
Cooi4¢44 A 6283 PENC SET Loe PHYSICAL BUFFER REMAINING WERD COUNT fe f 
o00145 A 624 LDC SET LOc+¢1 We oO 
gooo014d3 RA 6235 PRECNO SET Lit PHYSICAL RECORD NUMBER We i 
C00146 A 626 LOC SET LOc+i We oO 
o00146 A 627 PRLINK SET Le PREVIOUS FCB LINK y> oO 
oo00147 A 628 Loc SET Brak at oS | f 6 
900147 A 629 PTFL SET LOC ".* FLAG Ve Gg 
000150 A 63090 LOC SET LOC+] vo 4g 
000150 A 631 OFL SET Lec QUOTE FLAG We @ 
000151 G 632 LAL SET LOC+1 Ye 8 
Coo12eS A 633 R Sit YW REFEAT COUNT We oo 
ocoo012 A 634 ROFSTP SET STKS2Z VSRERR OP STACK PCINTER We a 
000151 A 635 RETURN SET Loc RETURN ADDFE/"END" aAbnDe/e*"ERR' ADDR PD 4 
000154 48 636 Loe SET : 0C+3 PD 4 
000154 4 627 RUFL SET Bele FLAG WORB We oO 
000155 aA 638 LOC SE7 _ncerel Ye 
000155 A 639 3 SET LOC SCALE FACTOR 2 0 
000156 q@ 640 LOC SET i_Gu+% Ve oO 
900032 A 641 SAVE Set CHEB SAVE PARAMETERS Ye oC 
CoOG156 A 642 SCF SET Loc SCALE FACTQI&S FLAG We ¢ 
000157 A 643 LOC Set 1oc+i!1 Ve 9g 
000157 A 644 SGFL SET Loc SIGN FLAG Ye oO 
000160 4 645 Lae S&T LOCc+] V2 TF 
goo0git60 4 646 SVRECN SET Loc SAVE RECORD ANN (i 
000161 AQ 647 LOr Set Tt Loce+s 0 
900162 A 648 SYSBF SET TY SDCB4¢1 GDMPKESS OF SYSTEM BUFFER SBUF VP 6 
000161 8 649 SYtDCB TET eC SYSTEM BCB ve 6 
009164 QA 650 LOZ SET LOc+3 WE 6 
000164 4 651 TEMP SET ! oc TEMP STURE Ve i 
000165 4 68e Los ae 'fte+t We oo 
000163 A 6853 TEMP1 Sef LOC TEMP STORE 0 
NMOOL66 A 654 L&C SET incl ft 
000166 4 65353 TER SET Loe PRODUCT TERM Ve i 
000167 4@ 656 Loe SET _CC+1 Veo if 
oo0167 & 657 UNIT SET _Oe I? 1 UNIT NUMEER We: 6 
o00170 A 658 Loe SET (pcr? Ye ft 
000170 A 653 WH SET LGC FIELD WIDTH Ve 0 
000171 9% 660 LOC SET LOc+] Yeo 4 
go00171 A 661 HT SE OC WORF ING VALUE OF W Ye 
Oo0o01Ze A 662 ue SET LOoct+i ve ey 
000172 8 663 #KFFL SET ioc PARAMETER #XFER ENG@BLE FLAG we 
cOoL?73 © 664 LOC Sey alee | WE 4 
C00172 Q 665 XFL SET Loc EXPONENT FIELD NON-BLANK FLAS We: 
000174 A 666 L3C SET ! OC+1 Ya x 
000174 A 667 KF SET LEC EMSOMENT FIELE WIDTH ve 
CcOo01L73 A 668 Lac CET _oc+il Ve 6 
000175 A 6693 XSG SET pe EXPOMENT SIGH FLAG We oC 
Qoou0176 A 670 LE SET ~Gte\l fe § 
000176 A 671 27F SET (or LEADING ZERO FIELD WIDTH v2 4 
coci7z7 A 672 Loc SET tprtet a 
Oo0L77? A 672 VY SET LOL END OF SAVE ELOESEK we | of 
Oong177 A 674 AZER SET ae ASCII ZERO VER OU 
Nodgde2@o00 A a-S Late st T L-ru+ i We I 
o00200 A 676 BD14 2 Aig I Lor DECIMAL 14 Vo 
QOO0cJ1 A 67/7 LAC SET .OC+#+] We G 
oe00201 A 67s Brieo Se TF Live DECIMSL 120 ve 0 
O0O0e20e2 A 6737 tL! SET whe Tt ve . 
DOoe02 A 680 BLEEK! SET Lic ASCIT BLANK CHARACTER Ve 4 
900203 A 681 Loe SET Lice] We oy 
990203 A 682 BLANKe SET cake ASCI! BLANK WERD ¥e 4 
000204 4 .683 toc ce F f+} We 
000204 4 684 272 SE TF LPe END OF DATA ELOCK Ve fi 
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404 Pce2> ° 0 

405 = STA ¢ PC2)9B 0 

406 EMAC 0 

408 MARKER EEK R 1 

403 * TEST NEGATIVEZIN ACB-REF ® 0 

410 SUS CRACAALERSLAAAERRRAR TSS 0 

411 TNAB mac 0 

$le iDA rPC136B f) 

413 JAN Pea) "' 0 

414 — ‘EMAC 0 

Co 1 GS SR RAE S00 ee mee Ge S002 ee Se eee Ve 9 

417 ™ TEST NEGATIVEZIN A/K-REF ® v2 0 

ORL e tee eet eT REET SEE EE ES FE Ve 0 

419 TNRX Mac ; Ye 0 

420 LDA PC13s9X ¥e 0 

421 JAN PCP) Ve 9 

422 EMAC Ve <G 

424 TTTTTTTTTT TTT TTT rrr rer () 

425 ™" TEST NOT ZEROCIN A/B-REF ® 0) 

Pe SE EES ESE SEL SEES SS SEE EES SS SS 0 

427 TNZAB MAC i) 

42¢e LDA PC1)sB 0 

429 JANZ P“‘P?) U 

430 EMAc U 

‘KEE tet Let cee ee eee eek ES Pee ee ESS 0 

433 ™ TEST POSITIVECIN ACB-REF ® f) 

‘ocr Mee etek e eee eT Pe LTP ee Te ES ES i 

435 TPRAB Mac 0 

436 LDA PC13sB 4] 

437 JAP Pte) 0 

428 EMAC 0 

440 <EEERENM SR ERE REED MER Ee Ee 0 

441 ™@ TEST BITZRESET/CIN AZB-REF #®# 0 

4G 2 ME EE ME 0 if 

443 TRAB Mac 0 

444 LTA ae ee  :; 0 

445 BT GPST#+#PCedsPC3) 0 

446 EMAC 0 

‘TCM PERS TES eS ee LET ee Se eT Ee SEF fl 

449 ™ TEST BIT¢SETCIN ACB-REF ® 0 

450 99 WE RE ee (r 

431 TSAB Mac Q 

4352 ‘LBA " PtidsrB = 4] 

453 ET RSL PP CeIsPCS? 0 

4354 EMaAc 0 

ote Eee Lie Ses ES EL ELT EST hE EE OSS 9 

437 ™@ TEST VERN/ IN A 4 B-REF ® 0 

455 MRARRER EERE RN TR G 

4539 TZAB MAC 0 

460 LDA PC1IE B ay 

461 JAZ P 2) ft 

462 Erac J 

TT Peeters Cee eee ETS SER ES ES [! 

465 ™ TEST ZERO/IN ACK-REF *® n 

A466 MEER EMET ETRE ERE r 

467? TZAXK MAC j 1 

466 LDA PC139x% 7 

469 JAZ Pce2) i) 

470 EnMnaAc 9 

472 Mw wee ee eo ) 

473 ™ ZERO THRU A/B-REF ® 5) 

A474 MEER RR EK ERK (} 

475 ZAP MAC (I 

476 Tza ) 

477 STA PCLldsB i 

478 EMAC I 

‘wh MELE SSE RSS eC ES ee ee eae eS it 

980 * ZERO X-REF THRU A ® i 

FUSS EPCS ERE SSL SS LE ee es FE fl 

4652 20x Mac 

483 T2A U 

4s¢ STN FCLIa® li 

485 EMAC U 

486 E IEC i) 

487 SREY AKA KKK! Of 

48s ™ x Ot 

489 ™ BAS E-REL ATIVE S¥YNBBL S = i 

go ™ \! 
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000001 A 49393 LINC SET i C 
0900001 A 494 AACC oe Sis i Lic ADDRESS OF ACCUMULATOR ACC Ye 0 
Ob00002 A 495 LOC SET LOC+1 | | Ve U 
o0000e A 496 ABSCB SET LOC ADDRESS OF BUSFER SCB Ve 
900003 A 49/7 LOC SeaT L.OG4 1 : wo ft 
000003 R 49398 ACL SET Loc 4-WORD ACCUMULATOR Ve ¢C 
000007 A 499 Loc Ser ~OC+¢4 v2 4 
pag0007 A 300 ACHB StF LOC ADDRESS OF NECIMNAL DIGIT ARRAY Ye 2a 
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0900011 H S04 AFSCE SEI Lc ADDRezSS OF FORMAT 3°78 Ve J 
. ,890012e A 2705 LOC SFT _oC¢l | | We f 
~ “ggab1i2 A $j%S06 AGPAR TET LOC ADDRESS OF *c* GROUP BLOCK Ve 9 
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¥SRERF PROGRAM PAGE 59 LISTING PAGE ¢ #852. 
STR TEMP B SAVE -CRECORD INCREMENT) 0 
ADD PERC.»B 0 
DAR 0 
JAN RFLSO 0 
SES EPSPS STS Se Eee es oS 0 
* LRECNO IS RESIDENT ® 0 
ENE ENCES WE NE EER RC NE NE 0 
MOVAXAB 1L3sPRECNODO UPDATE PHYSICAL RECORD NUMBER t 
TBS SAVE BASE REGISTER C 
TZA 0 
SUB TEMP sB GET RECORD INCREMENT 3 
LLOR 1 nt) 
MUL renee CONVERT TO WORD INCREMENT ¥Ve OQ 
sTR TENFP 0 
TAB RESTORE BASE REGISTER B 0 
LDA LBFaB a) 
ADD TEMP SB BUMP LOGICAL BUFFER ADDRESS it 
STA AL BFsB ) 
DAR 0 
STA PF WPT» B ALSO BUFFER WORD PCINTER a 
LDA FBWCsB 0 
SUE TEMPs B DECREMENT FHYSICAL WORD COUNT 0 
$TA BUC. B 8 
RFL2O TSAE RHF LsWR»sRFLSO READ ? Ye 9g 
ADEBEB PRECNOsPBRCsPRECHNOD YES. BUMP FHYSICAL RECNO ¥e2 
POPS AND EXIT FG 0 
RFL30 ORA POs SET POST FLAG ON WRITE Ye oO 
STA RNG ts B | ¥2 0 
Le AUF CBs B PDINT * AT FCB We 0 
LUA Lash ve 6 
ORA FPOS ALSC IN FEE ve 0 
| STA 129% V2 0 
RFL40 POPJ AND EXTT FG Oo 
Me A Ww 6 
* LRECNO NOT IN BUFFER ® 8 
Ete Lit iies ttt ei ee eee oe 6 
RFLSO LDA PAFLe B C 
CRA zNE SET INITIALIZE FLAG Ye oC 
STR RUFL» B ° 
JME &CP RECYCLE PHYSICAL BUFFER Cc 
JEC Q 
RECRKCESTE SERS SK SLES ERS RREEE ETT FSSC AES SSK SLES SRS ARTCC SSSR KET SERERET FF 
* ¥ 6 
« IND DECIMAL ARRAYCRABD ane 
¥ e 9 
* FUNCTION: TO ROUND DECIMAL DIGIT STRING IN ARPAY CHBs PROPAGATING ® & 
* CARRIES FORWARD ~ 
+ 
% ENTRY: ARRAY CHE CONTAINS BINARY EQUIVALENTS OF DECIMAL DIGITS = oP 
” COUNT = ROUND POSITION * i 
* NEXP DECIMAW EXPONENT * 1) 
* Q9Cc INARY FRACTION REMAINING. AFTER 14 BIGITS ves . 
¥ E 
" EXIT + DEXAP DEMP+1 GN FIELD OVERFLOW = . 
2 : 
Se ee ere FEF RERSCSK RCRA S ST RECS KKKA ASSES EVE KSEE CEL EK SS ESCERSEKE F 
RNA EWU p 
RMD WDA rOUNTs B i 
JAN RN DA EXIT IF COUNT NEGATIVE FG Uv 
SUP 2b14sB VB 30 
Jai RS IS COUNT .Ge. 14 7 C? 
LDA SCHEsB YES a7 
ADD SH1ldsE | _ | Yeo. 
DF CR i POINT ¥% AT LAST DIGIT 
LDA 4CCsB 
LRA j | 
JAP RADS EXIT IF NO BUNP FG 
Jie RNDL OTHERUISE PROPAGATE CARRY Oy 
RNDS LDA ACHBsB b 
ALD COUNTS B | r 
DECR aid POINT &X AT FROWNED POSITION-1 i 
_DA lan GET DECIMAL DIGIT F 
“Sue reve 0 
JAN RNDA EXIT IF NO CePRY FG 2 
TZAB COUNTs RANDIO TEST COUNT=2 0 
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E.@&@ WORTEX LISTING ¥VSRERFE PROGRAM PAGE 60 LISTING PAGE ¢ 853° 


COS3S1 801010 fF 
205332 ca5350 R 
4356 eRA ; ELEAR LAST DIGIT IN CASE OF OVERFLOW 8? 04385 
COSS833 d05001 A 
005334 055001 a 
A257 VEER TER CT ee ee oF n4aner7 
4388 ™ LOOP TQ PROFAGATE CARRIES ™ 3 a? 04383 
4359 FMR RTECS CCC RET KT CERES EET ae Ad sea 
995335 045000 A 4330 RNBL INR QsX BUMP PRECEDING DIGIT ‘7? 04390 
$05336 015000 A 4391 LDA Os% 17 04391 
C05337 140471 Aa 4392 SUB TEN 7 043992 
105340 001004 A 4393 JAN INDX EXIT IF NO CARRY FG &@? 04293 
COS5341 COS3SSS R 
095342 005001 & 43994 TZA oO? o4394 
805343 955000 A 4395 STA fe CLEAR BIGIT CY 04395 
$95344 205345 A 4396 NECR 045 DECROMENT CHE ARRAY FOINTER n7? 04396 
905345 146007 A 4397 SUB ACHEsB IY 04397 
205346 001002 A 4399 Jap RDI. IS CARRY PRDOPAGATED OUT OF CHE ? o7 04292 
905347 005335 RF 
S2£250 046055 A 4399 RNBIO INR . NEXPs B YES. BUMP TECIMAL EXPONENT G7? 04393 
105351 00510: A 4400 INCR i So? o440% 
JOS352 ¢55001 A 4401 STA Ls % SHIFT CHE RIGHT 1 uy 04491 
4402 RNDX POPS EXIT FG su” 4402 
coS2S3 1050635 a 
4403 EGSEC G7 O4403 
4404 FERRERS RE TERRA TERETE KRHA RE HER OF Caan 
4405 *® * oF o440°% 
4406 ® REFRE S$ H PoH FS FC At BU FF OB KR CP OB 2 ~“ Oe 04406 
4407 *® * us Oddi? 
4408 ® FUNCTION: TO READ OR URITE A PHYSICAL BUFFER * o/ O4408 
4409 * : * GY Oe40s 
4410 * ENTRY: ADFCB = ADDRES OF BCB/FLS * oF O4410 
4411 *® * ¢* 64411 
4412 % LOGICAL FILES ONLY: * oF n44iz 
4413 ¥ *¥ 97 O44¢12 
44id *& PRECNA = CURRENT FHYSICAL RECORD NUMBER * oF O44d.a 
4415 ® roRC = COURT OF ied-WORD RECORDS IN FHYSICAL BUFFER * i? O44i15 
4416 *™ * oF 04416 
44i7 @ EXIT =: PSEWC = PHYSICAL HORD COUNT * of 441+ 
$44is ™ FRECNG = rRECNO + PERC * rf 46415 
4419 * * CF O44di5 
4420 BERRA KEHOE TERRE OEY EO REECE ENTE ER EMA RENEE EERE ST SHE RRR RARER EHE AP aA De 
4422 RPRB TRAB RPL se LPs RP B10 TEST IF LUGICAL FILE uy? 04422 
39083354 016154 A 
09353355 006441 & 
G2S356 005363 R 
4423 FRERRRERETERERE CT IF EXE SEW EE a? gagaes 
6424 @ LOGICAL FILE ~- SET UP FCB * 57 04424 
£425 =F SMELT TERETE ee ee ee oF? gaqos 
J05357 636019 4 4426 LDX fiDECBSE POINT X AT FCB 17 04426 
$427 MOVEAX PRECNO.3 MOVE PHYSICA! RECNO TO FCBC¢3> G/ 04427 
3335360 0161435 8A 
COS361 Of5063 A 
COSS62 OS50135 4 4428 STA 13s% ALSO FCEC13> 7 ud4es 
4429 SRR VTEC RR ERA ow it? O44e9 
4430 ™ CALL IOC To BO r/o * 97 04436 
‘ 447%] SPECHT SKEET eee ir tidea sf 
105363 010464 A 4422 RPE1Q LNA ERG 6 CALL VSiBC TE Da 278 V2 27 9443° 
905364 906505 A 44323 JSE OoIs& W¥2 37 04432 
005365 004515 FR 
$034 TRAB “WRLs IN» RPBIL INITIALIZING C E.i fF 04434 
Ju5366 916154 aA 
ONsS3se7 coeds 4 
“3I5370 205376 R 
ONS371 016020 A 4435 wDR OPER SB YES E.1 ©7 94435 
SaS372 126143 A 4436 ann SRRZs B E.1 ¢¢ 04436 
uOS3S73 id6ner 4 443° SUB PLoFsB COMPUTE REMAINING PHYSICAL KORD COUNT F.i i? 94437 
195374 001900 A 4438 Jur 2"Bia Eat 44% 
I95375 oas4og f& 
O95376 C36016 A 44339 RPB11 LDBX AMNis B NOT INITIAL TEING E.l £7 04436 
195377 915144 A 4440 LD Puc» x XFER I/D WORD COUNT FROM YSFCRTIO F.i 37 g4440 
2US490 6056144 A 4441 RPB12 $TS *3iCsB E.i 27 04441 
444c TRAE The LE se RPELS LGGICAL FELeE ? Ye @° 2444 
FO5401 616154 A 
ojg5402 006441 A 
~05403 2905406 R 
SO£4¢04 906406 A 4443 RT ASET+HRMs RP REO YES. RMN ? v2 GF 444° 
005405 3905411 & 
4444 RPE15 wWCVEAE Panis LRs/Z NO. LPDATE -AGICaL WORD COUNT Ye t, O444 
1095406 016144 4A 
*U3407 08612. 4 | 
4445 FOP J EXIT FG 3? 0444! 
705410 105065 aA | | | 
4446 RPSE0 ITSEB SPECHOsPER Cs PRECHC BUM PHYSICAL RECURG NUMBER 37 G444 
ONS41i 016145 A 
0U5412 126142 4 
HOS412 056145 a 
$447 POPS EXIT FG tu? d44 
DO05414 105065 & 
4443 FUEL 1? O444 
4449 KRM EMRERAT ST REREK TS TEE RES ERNE REET RS EERE LEE ER RR SRR ETE OP 4a 
4456 * *# oF 0445 
4451 ® > —E ARCH FC FE ce HA TNC OS OC OUR * or O445 


Y@iapkno cg 


E.2 ¥VORTEX LISTING VSRERF PROGRAM PAGE 6 1 LISTING PAGE ¢ &854> 


4452¢ * 0? 
44523 @ FUNCTION: TO SEARCH AN FCB CH3IN FOR A GIVEN FORTRAN UNIT NUMBEP U . ei 
4454 ™ ; 
4455 ™ ENTRY! UNIT = U * OF 
4456 *% LNKCHT = COUNT OF FCB'S ON CHAIN Ye 0? 
4457 ™ EACH CHAIN ITEM XFCB HAS FORMAT: * 07 
4453 * <FCEC10> = ADDRESS OF NEXT FCB ON CHAIN eu? 
4459 ™ AFCBC11> = UCKFCB)D * O07 
4460 *™ ALOC .WE. O IF VSRERR ENTERED BY ALDOC Ve O07 
4461 ™ | e Ue 
4462 " EXIT : A = ADVRESS OF FCB ARRAYs IF U ON CHAIN * 27 
4463 *™ = 0 IF U NOT ON CHAIN * OF 
see PRLINK = ADDRESS OF PREVIDUS CHAIN LINK * ve 
34 ¥ 
4466 REX RAEMRERKKRKRKRET AKRAM KEKE EKA RESET RCRA AACE HSCS SRK KRE FF 
44659 4 ERE EE ER ES Ee EET Ee 7 
4469 ® INITIALIZE SEARZSH LOOP * "> 
AAO 9 5 Ee Oe Oe ee O7 
05415 036016 A 4471 SCH : Ox SNRBEsB Bo? 
05416 005041 A 4472 TXA GET DATA ELOCK ADDRESS Ct? 
93417 006120 A 4473 ADDI CHMHDR-10 aD) zIaAs | ve oO7 
05420 oo0037 A | 
"5421 056146 A 4474 STA PRLINKs 3B POINT PREVIOUS LINK AT CHAIN HEADER UP 
95422 615120 9 4475 Loa LUxCnTs GET LINK COUNT 07 
905422 o56052 A 4476 STA COUNTsB STORE AS LOOP COUNT 17 
CoS4¢e4¢ 0350351 A 4477 LDX CHNHDR»s X POINT X AT HEAD OF CHAIN oF 
44783 CECE RR KCC a? 
4479 ™ SEARCH LOOP * . 0? 
‘ 4450 MERE TEKKEN TMS 9? 
034235 0160352 A 4481 SCHLF LBA COUNT>sB 7 
05426 001010 A 4482 JAZ SCHY FLAG NO FIND BY EXIT WITH n=d FG n? 
05427 005442 FR . | 
05430 005311 A 4483 BAR DECPEMENT CLUNT (7 
05431 0560852 A 4484 STA CAUNTsB 7 
44¢5 IFF Nur FG oF 
4486 GoTo "YUCL | FG ct? 
4497 IFT Vil FG of 
4483 Goro STr4 | FG 07 
4499 TZAB ALDNCsSCHS YVDRIEX BKGND CALLING NUCLEUS 7? V2 O07 
4490 ST x TEMP sB YES. SAVE * sey 
4491 THe a7 
4492 J&R TREK: TEST FCECO>? IN BACKGROUND 07 
4492 ADD Bis C7 
4494 JER TEKs»% TEST FCEC14> IN BACKSROUND Oo? 
4495 LOX TEMPS B RESTORE & 07 
4496 NUC1 CONT FG 0? 
4497 VIT1 CONT FG nF 
9054382 315013 A 4498 SCHS ina 115% Oo 
005433 146167 A 4499 SUB UNiYsB COMPAPE WITH WU | OF 
095424 001010 A 4500 JAZ SCH EXIT IN FIND WITH X=FSB ADDRESS a? 
"05435 005442 Rr 
305436 076146 A 4501 STX PRLINKsB UPDSTE PREVIOUS LINE u? 
205437 035012 a 4502 LDX 10.% POINT % AT NEXT LIKK i? 
305440 201000 4 4502 JMP SCHLP LOOP TILL CHAIN EXHAUSTED a? 
d0544i 005425 Rk 
335442 005041 A 4304 SCHX TxA FLAG FINN EY A.NE.9 CFCB ANDRESS) 37 
4505 SCH POrSJ EXT FG C7 
"95443 105065 A 
4506 EJEC | | a? 
S50 7 BAERS LEE CEN SS LET SET AT eR 
4503s ™ e Of 
45039 ™ SN FF FT A CcCURULA TO Actt SHA ? . 7 
4510 *® ag 
4511 ™® FUNCTION: TO SHIFT THE 4-WORD ALCUMNULATOR ACC x a7 
45i2 ™ x OF 
4513 ™ ENTRY! COUNT = + SHIFT RIGHT COUNT x O07 
435i4 * + = SHIFT LEFT 1 * OF 
4515 ™ * 07 
4514 ™ EXIT =: NO SPECIAL CONDITIONS : ny 
4 * E £7 
Hie ds hE RERERRERSSALAS £ESRREASRRSASLLZALRALALS LL ARES AR RR RL RRS Oe Se ee eee See Se oe Se Se es 
"95444 005024 e° 4520 SHA TEx Loan X @S fash! POINTER oF 
4521 HAL "NAX COUNTs SHASO TEST DIRECTIUH MF SHIF Ye a?P 
5445 015052 A 
S446 2901004 A 
5447 0054723 R 
$450 001010 A 4522 JAZ SHAX EXIT WHEN FINMT SHED 7 
S451 005510 RF ; 
S452 00531: A 4523 DAR BDECREMENT SHIFT COUNT > 
S453 055052 A 4524 STA COUNTs& ey 
4525 EERE LENS CO REN ED neg 
4526 *® RIGHT SHIFT # M4 
4527 HERES EKER MER , Ae 
005454 o0es50tt a 4528 ~~. LDS ACC 435% 97 
005455 015005 A 4529 LOA Qgrc+es% sy 
905456 004501 A 4530 _asre t | as 
N103457 065006 A 4531 STB SEC+35% SHIFT RECs) a? 
005460 025095 A 4532 LDPE aOR+25 x 1? 
005461 0150904 A 4533 LOA AaCC+isX c? 
005462 004591 @ 4534 LAER H | | ue 
005463 065005 A 4535 STE ecc+2«x SWIFT ACCCe) i? 
005464 025004 A 4536 LB  Sot+is® Oo? 
005465 013093 A 4537 Lua act: Oo? 
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4538 
4339 
4540 
4341 


4542 
4543 
4544 
4345 
4546 
454? 
4543 
4549 
4550 
4551 
$352 
4552 
4554 
4555 
455% 
4557 
4558 
4553 


4360 
4561 
4562 
43563 
4364 
43565 
4366 
436? 
4368 
6363 
457C 
6571 
45,2 
4573 
4574 
4575 
4576 
437 
457c 
457° 
4539 
é561 
458e2 
a3 
2584 
45E5 
4566 
$387 
458s 
45293 
4590 
g591 
$392 
a5 32 
$534 
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VSRERF PROGRAM PAGE &e LISTING PAGE ¢ 855) 
LASR 1 
STE AMC+1sx SHIFT ACCC, 
Th aCCe# SHIFT ACCCO? 
JMF SHAL LOOP TILL DONE 
SEEKERS TS SERS 


m LEFT SHIFT * 
eee ee ees SE 


SHASO LDA acts * 

LDE HLC+1isA4 

LAS H 

STA ACCsk SHIFT Abt<0) 

LDA ACC+1Is® 

LOB ALC+29% 

LASL i 

STA Cecelia ® SHIFT ACCC1> 

LDA ecO+e.% 

LOE qaCC+3e% 

LASL 1 

= TA oCC+2as% SHIFT ACCC2) 

a 12 aCO+Ssh SHIFT ACECS) 
SHA Tae RESTORE BASE REGISTER B 

POP J EXIT FS 

EJEE 

IF F MLC FG 

GCTO NLC 1 Fi 

IFT WIT FG 

Goro VIII FG 
FERRER KEREKC REF KERR KSEE OK TSEC EK KEK STS KESSF SESE SKC SCHEER KSE KRESS 
™ * 
bd Tr € 3 FT BACK GREFEUA OD A DBREE SS tC FT EK 3 ¥ 
* . 
" FUNCTION: YO YTrEsST IF AN ABDBRESS 18 IN THE BACKGROUND ¥ 
” = 
* RY: A = TEXT ADDRESS ™ 
‘ft ¥ 
* CALLING SEQUEHIFE: JSR TEKs* : 
* 
* EXIT =: "F OKs RETURH WITH A UNCHANGED * 
* OTHERWISE, SET UP A MEMORY PROTECT ERROR * 
* . 
LES ES ERRSRSE REL ESAS EERE EEL ER SET ERRORS ESLER SSE ESR Ce EER SES EES SSS ET SS SS 8 

sPAc 
TEK SUE VSLUP . 

Jan TEF 186 EREO: IF ALT. ¥SLUP 

AOD Vs. UP RESTIPRE aA 

SiR Ve'.t uP 

JA eq 

Jf} TEK10 ERROR IF AW.GT.¥VSLLUP 

pun YELLUP RESTCRE A 

IJMP Jah REIURN IF C# 
RR MREM ERE ORR RWS ROE ERR RRR OEE OC OER ER ET KH TEE 
* ERROR - CONSTRUCT MEMORY FROTECT VIOLATION ® 
(tote eee eee. kee eR RRR RRS SRR RRS RS RSA SAL SS Ee ee SS 
TBK19 LOX fSLUP POINT “™ AT it? BACKGRIIUND WERD 

LYaA Tax IMP 

STA 93% 

TZA 

STP 13% STORE ° JMP * IN BACKGROUHD 

LDE ¥VECRS POINT ©€ AT STACK 

STA Cra EF SET BEALOC ALCIRESS TQ IST “CKGRODUND NORD 

NMEALOC 
TEKJAP SET ESS 
YEr1 CUNT FG 
NUC1 CONT ra 

“siege ae 
TET STR RTT TERRE RTS ET SEV ET KEE TT EEE EEC oe eH 
¥ i 
7 Pose @ Ee & Ss 1 fF G& RK H A OT GbEe & RYT FPFP TT @ a 8 UDP OG ¥. 
¥ + 
" FUNCTICTGH: TO FROCESS THE FORAART YESCRIPTIR: TY ¥ 
* a 
* ENTRY! RIRECT TROM FRY —_ ¥. 
* SFPT = CURRENT BUFFER CiARACTER PUSITIONCEASE u- ¥ 
* WwW = SPECIFIED BUFFER CHAS PACTER FRUSITIONCRASE 1) * 
¥. te 
e EMIT & DIRECT Ta FRY 45 
sd BFPT = it-1 = 
” BFUPT = ALBF + BFPT/2 bs 
int fTNELEBET $C) = £ IF LOUGTSAL FILE PHYSTCSALLY POUSETIONES EBACKYe 
* ¥ 
* ERRORS: ERL T° WwW DUTSLOE LOGIUAW RECRED ¥ 
- * 
CX ERA ESAT CCE ELSE EEE ES EEE EEE SRE CR RE EH CEC ee ee EY 
TIN emily ¥ 
TOUT ERs * 


SOVBAB Ferre SAVE. 2RYE DTURRERT YVRALUE OF BUFFER CRAR PTR 


nA is B mET 4 
DPR CONVERT FROM PASE 1 TO BASE 9G 
“TA ErPTsB STORE AS BUFFER CHARACTER POINTER 


cat CS 


ie ies ee an eh ies Dees ey a es Da a 
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i 2 


C2 ope" 
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000120 RAR 600 LNKCNT SET LOC LINK COUNT ¥P 0 
po01e1 A 601 LAC SET LiiCt+l : Ve 0 
900121 8 602 LRECNO SET Luc LOGICAL RECORD NUMBER ¥2 oO 
0O01lee A 603 LOC SET _oC+1 Ve 0 
OO0O01lee A 604 LREZ SET LOc LOGICAL RECORD SIZE Ve 0 
OO01lest & 605 Loc sE& T LOC+1 Vo ft 
gpogoies aA 606 LREUC SET Loc LOGICAL RECORD REMAINING WORD COUNT ve 0 
Ooo9d01e4¢ A 607 LOC SET 'pocel ae, 0 
cso0124 A 608 MNY SET ttc MULTIPLY OVERFLOW SWITCH Ve oy 
po01e5 A 609 LOC SET Loc+! Ve 9 
0001235 A 610 WN oe F ‘Oc H7T/* FIELD WIDTH Ve 0 
000126 A 611 LUC SET LOC+1 ) rn 
o0c12@6 a 612 NFF SET 1oc NUMERIC FORMAT FIELD VALUE Ee 3 
co012e7 A 613 LOC SET LOc+1 | ve a 
0001287 A 614 OFSTK SET LOL OP STACK Ve 0 
000141 aA 61S LOC SET LOC+STKS2Z ¥2 i) 
npoooc0n0 A 616 OPSTKP SET 0 OP STACK POINTER FG 0a 
000141 QA 617 PARLV SET Loc FORMAT "C* GROUP LEVEL COUNT Ye 9 
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OO014e2e & 613 PBRE SET L.OC PHYSICAL BUFFER RECORD COUNT ve ft 
e00143 A 620 LOC SET LOC+1 ve 0 
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Oooo0144 4 62e ..nc SET igc+! ve 0 
000144 4 623 PEUWC SET LOC PHYSICAL BUFFER REMAINING WORD COUNT Ye U 
0001453 A 624 LOC SET LOC+1 Ve 0 
000143 A 625 PRECNO SET LOC PHYSICAL RECORD NUMBER Yc 0 
doo0i1dé A 626 LOC SET LoOc+1 |. Ve oO 
000146 A 62/7 PRLINK SET LOC PREVIOUS FEE LINK Ve 0 
000147 A 628 LDC SET LOC+1 ve 6 
oo0147 A 629 PTFL SET Loc '.* FLAG ve oO 
000150 a 630 Loc SET 'Oc+¢!1 YP 9g 
000150 A 631 QFL SET LOC QUHTE FLAG Ve 0 
Q00151 Aa 632 LOc SET |! oOce!1 Ve 0 
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GOC01357 A 643 LOC SET LOC+1 Ve 0 
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693 * WT = WH = TOT WIUDIH ¥ ou? 
694 # LIB$SZ = BYTE P SINGLE LIST IETEM * i? 
695 ® ITEMAD = ADD LIST ITEM * Of 
696 * RWFLCBIT tR> DB “% OF 
6397 *® RITE * O07 
698 * | * Of 
6393 " EXIT © iNPUT * DIRECT TO FRS * 07 
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7108 SUCRE CSCC CER ERE RE ee af 
711 ™ SLEW THRU WH-ITBSZ CHARS #® bY 
Jif ARERR SKT SREB DL TT RES i? 
ris MOVEAEB VLANKLls BCHAR LOAP BLANK AS REPEAT CHARALTER vo oO? 
e A 
0 A 
714 PUSHJ ee | REPEAT CHARACTER I/O , Ve h? 
5 6 
2 R 
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1 oA 
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- A 723 JPA WRS SET WRITE FLAG ve ui? 
o A Pou Ty RUFLs E G7 
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737? #® DUTPUT *® a? 
738 RRR EHS ‘a 
739 ATOLe FOVBEBAB KISCB,rASCB SET SCP TO LIST !ITEA ig 
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oe WOE 0G SUE DRE SWE ORE Ye OE OE RE OE SR Oe SRE ame Sm Oe De ee SOE DOE Oe SOE SO Sa ee Se ee Oe ee Oe ee EM 
x * QO? 
* C REL EL N GO NWN - R E E WTtRaAN T BkLOEeK ¢€ © AN 3 . a> 
7" “i 
*" FUNCTION: TO RETURN TO VSFORTIO . oe 
¥ 07 
" ENTRY: ALDOC .NE. O IF VERERR ENTERED BY ALOC Wer OF 
¥ ~-tQ@. O ITF VSRERR ERTERED BY DIRECT JUMP ver . 
b 1? 
¥ ¥SCRS = CURRENT REENTRANT STACK POINTER * Of 
¥VSCRSCPR) = LOCATION WHERE P-RIOGCRETURNH ADDRESS) I3S STORED ce 5 
*" EXIT =: T VSFORKRTIO POP/JUMP ADDRESS IN ANPOJ : pe 
* 
¥ VIA DEALOC IF ENTERED BY ALOC Yew O07 
™ YIA DIRECT JUMP IF ENTERED BY BIRECT JUMP Goa es 
Cd \ F 
bl RETURN ADDRESSES IN VSFORTIO STACK SAVED IN VSRERE IF * U7 
* VURTEX If CALL FROM BACKGROUND TO NUCLEUS. * aS 
* * r 
COS ee ee Ee OP 
CAN Ln ANPOJs8 POINT # AT ¥Y¥SFORTIO POPCJUNP ve 0/7 

IF F NUC FG QO? 

30TO mUC I FG Q- 

If T YI FG uo? 

cOTo NUCe FG ¢?7 

LDA AlLOcCsB GET ALDC ENTRY FLAG FG 07 

JANZ CAN] TEST VURTEX BACKGROUND CALL TO NUCLEUS FG (Q¢ 

TRaRS SES SS SEES EPR ERE ES PLES RLS EL EE Se ; i? 
*@ EXIT TO ¥VSFORTIO VIA AIRECT JUMP *# FG Of 
TEMS SEE SRSE RAE LESS ESAS PRR SER ES ES ee eS Oo? 
MwUCcl CONT FG G7 
I JMP Os% FG Of 

NuUCe CONT FG Oo 
TeeS ERE ESAS LSE SESE SEL ERS RETEST SE SG FG oF 
* EXIT TO ¥VSFORTIO VIA DEALOC ® FG 07 
AER ERRERERE ST EHH EE KK FG ¢t? 
CAN! EGU ¥. FG 0? 
IFF NUL FG Of 

GOoOTd NUC i Fo OQ? 

IFT VII Fo OF 

OME MaAPsvVssSTe SET EXEC STATE TO NO Ye oO? 

TEA SAVE 3 Ve OF 

LDE VESCRS POINT B AT ALOE STACK Ve a? 

ST “es B STORE POP/IJUMP ADDS IN P-REG FIELD Ve a7 

FF : ¥ITI FG Of 

oaTOoO YIJIi FG 0? 

SPAC FG 87 

MERC ERKELEEER HS HY RS RRR ERER EES Y FO o7 
* VSRERR I85 IN VORTEX II NUCLEUS * FG 0/2 
TARA EER SSA ELE LER EROS ERR ESE ECEL ES ESS SF FG 3? 
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VSRERF PROGRAM PAGE id LISTING PAGE ¢ 8&1 > 
4 IBR BUMP POINTERS FG ou? 
TKR FG 07 
| IMP CANL?2 LOOP TILL DOWE VP af 
VII1 CONT FG OP? 
CANS DEALOC RETURN TO VSFURTIO VIA DEALOC Ve i? 
NHUC) CONT FG OF 
IEC ae 
SRERARKTF TL FTE EERSLIF KCTS SKSESST STEER ARESC FERN STRESSES EER RA SRE TS 
* | ¥ OF 
. G Y © kL E BUFFER CHAFPAE TER CE BE S % OF? 
¥ C7 
“™" FUNCTION: TO HANDLE CHARACTER I-’°OD FROM/STO BUFFER * OF 
Ld w onF 
* ENTRY! BUFFER SCBCO) = CURRENT CHAR Ciunt ~™ OF 
* RWFLCBIT WRDd = 0 READ Ye ar 
¥ = 1 WRITE = £7 
. WT = WIDTH REMAINING Ift FORMAT FIELD x 0/7 
, * oF 
* EXIT RUFLC BIT WR) = 0 PIRECT TU ICCCINFUT) Wee OG? 
*. = 1] DIRECT TO PCHC OUTPUTS x 7 
¥ WT = WT-1 * OF 
= * U7 
REC ERRSRKCRESERRSASERRESECEE ERECT CK SERRA LEK RKSEC ERS KRRTEARREKR ERK TERE KS Fie 
CBC LOX SPSCBsB a? 
$Tx RECBEsB SET SCE TO BUFFER 7 
LDA Ms X GET CURRENT CHAR COUNT a 
ET ASET+#BO»CEC4 ON WORD BOUNDSARY ? G7 
PUSHJ SBA VES. GET NEXT BUFFER ADDRESS Ve oF 
CEBC¢4 DAB WT DECREMENT FEMAINIG FIELD WIDTH 1s 
TREB RWFLeECsCREC6 JUMP IF NOT ENCODE/DECODE Po oF 
LDX RETURN+¢1), BE Poh on? 
JXZ c3c6 NO COUNT ADDRESS Po a? 
INR fis xX BUMNF CHARACTER-FROCESSED COUNT PD t? 
CBCE6 TRAB eW RL» WR: IEC READ: EXIT TO IHPUT CHAR FROM BUFFER PL 0? 
JMP Pc} WRITE: EXIT YO FUT CHAR IN BUFFER o7 
EJEC no 
(RE RESSGES ASR LS ER ERR RRS REL RC ERS ESLER RESET ARSE SLR PEC A RRR ESPACE RRR ee ee eee Pe 2 ee y 
* x 0? 
* CLEAR FU F FE R € C L EB 3 x 
¥ x ff: 
® FUNETION: 0 CLEAR A BUFFER *¥ ou? 
* x Gf /- 
* ENTRY: FRET Q IF UNFORMNATTE: es EP? 
bad BFWPT = ADDRESS OF PREVIOUS BUFFER WORD Ve ? 
* LREC LOGICAL RECORD FEMCING WORL COUNT * OF 
* PBWC PS’"SICAL BUFFER REMAINING WORD COUNT * of 
” * a? 
* EXIT BUFFER = BLANKS ON FORMATTED I-00 * O07 
* = 0 ON JUNFORMATTED I/D “" n> 
mm mx oF 
VRKRET RE. SRR EK CET ESE EE CEE TE CEE KEE ee ee LF 
Cts MOVBAB LRECs TEMPI 1? 
SUB PRLC»B a? 
Jan ClLPS SET COUNT = MINIMUM<CLEUC,s PBUCD a? 

MHCGCVBAB - SWC, TEMP i 
CLE4 TZHB TEMP is CL BX EXIT IF COLBNT=2 oS? 
TSAB eWFLs RBs Ct BH DONT FLEAR TF READ-FEFORE-WRITE FLAG SET iy 
TZAB > <MT se CLBS CLEAR TO 2EROS ON URFORMATTE Ve 9, 
LDA BLNKes B CLEAR TO BLANKS ON FORMATTED Ve i? 
ci.&s “Ta TEMP» B V2 oc? 
LDX SFHPTsB Ve G7 
CEXCREMRES YS EME wu? 
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911 " FILL LOOP ® O07 06911 
912 ewe ee | 07 00912 
000152 2 9313 CLELP EQ@U ¥ ¥2 oF 00913 
000182 0035144 A 914 IXR LORD * AS BUFFER POINTER ¥2 07 009164 
| 915 MOVBAX TEMNFs0 MOVE FILL WORD TO BUFFER ¥e 07 00915 
c001853 016164 A 
900154 955000 A 
000133 ¢g03041 A 716 TSA ve O7? QO0316 
000156 146025 A 917 SUB EBFWFTsB We Gr OUST? 
Q901S7 146165 A 918 Sues TOMPisB o?7 00918 
po00160 001004 A $19 JAN CLRILP LOOP TILL BONE 07 009193 
900161 000152 ® 
3920 CLEX POP J EXIT FO oO? 00920 
000162 105065 A | | 
s2i EJEC 67? 00921 
22D WHR NRCC ee Nee Ne ee me He ERE ER OF 00922 
Jes ® ™ O07 OO325 
924 ®™ CLOsE PFkEhRE & € Lie ™ O7 O0924 
323 * * O7 O0925 
326 * FUNCTION: TO PROCESS CALLS TO CLOSE AN RMD FILE *® 0/7 O03926 
327 *® *™ G7 OUS2F 
9253 * ENTRY: DIRECT FROM RBE * 07 00323 
9259 *® TEMP = OF = COL CLOSE NORMAL RMD FILE Ye®e O07 QOe2D 
930 ® CEB CLOSE BLOCKEDCLOGICAL) FILE V2" Of 00930 
S$3i * RETURN = CALL SEQUENCE ADDRESS * QO7 O093i 
932 * FETURNCS> = ADDRESS OF UPBDATECLEAVE CLOSE PARAMETER * 07 09932 
933 * * oF 00933 
934 ® EXIT : FCB REMOVED FROM CHAIN * G7 00934 
3935 ® BUFFER FLUSHED IF LOGICAL FILE * of? 00935 
936 ™ * o7 00936 
937 ™ ERRORS: ERG IF UY NOT ON CHAIN * G7 005937 
933 *% : *# ¢/ 009383 
939 TRERERESESBSDESELESRSAL ELS ER SRR EASTER SERS ESL ESAS ASR ETE ASE PRE ERS ERASERS SS STE SE ES SS le ieee 
S41 MAK RESET ERE SF 1 o0ad1 
942 ™ SET UP CONTROL #*# of 00942 
945 AERA ERS KR SES or Qao94s3 
9900163 010432 A 944 CLS LDA URS SET WRITE FLAG W2 07 003944 
000164 036134 QA 9345 2TA RWFL» B of 00345 
946 4HXXEMMEE* ERNE EY OE ERE EO 47 on946 
S947 ™ SEARCH FCB CHAIN FOR U ® O7 QO094?7 
" 948 [teeta ee Sea EER EER ERS SRE SE ES O07 003483 
: es 949 PUSHJ SCH SEARCH FCB CHHIN Ve GF 009495 
000165 105028 A . 
000166 003625 R | 
oo00167 001010 A 950 JAZ ER ERROR 4/7 FCBCUD NOT ON CHAIN 7 07 00956 
C00179 003364 R , | | | 
; 351 PUSH PRU PROCESS FORTRAN UNIT NUMBER U ve oOo? 00951 
000171 1985025 A 
000172 003754 R 7 
U00172 036016 A 952 LDX ANREsB Ve 67 OG095¢ 
9353 MOVBAX UNITs IOCQNT INITIALIZE I0C CONTROi. WORD Ve B57 00953 
000174 016167 A 
900175 055104 A 
000176 036010 A 954 Bx GADFCBE,:B POINT KX AT FCB a? 00954 
900177 013014 4A 9355 —. LOA 125% GC/ G@O0935 
he bog ede oe Rae 956 BT ARST+FLFsChLs2eo ~ TEST FOR LOGICAL FILE ve Ger G@093956 
o0g201 oboe SR | | 
rcoede 006434 A 357 BT . ARST+FRMsCLS20 AnD RMD Ve 7 900957 
090203 0902285 R | 
z* 5 . 358 ZEPRRKKSE TERE ECERARER SE " Ve gor o0958 
$953 ®@ tU IS RNG LOGICAL FILE ® V2 S7 90989 
i 960 FREER ERE RTS TSE vc 1/7 007960 
vv0.204 pee s7 A 961 BT ARST+FPO;,CLS10 ANY UNSOSTED DATA ? Ve ¢t7 oog96! 
no0205 900213 R | _ ss 
| 962 MOVBAX FES2s0 YES. LOAD FCBCO) WLTH PHYSICAL BUFF SIZE Oy O096e 
soe02z06 016143 RA 
no09207 935000 A | : 
963 is PUSHJ . FPSB ANu FOST BUFFER ve 7 900363 
"390210 1035023 a 
100211 004533 R 
bO0212 O36010 A 564 "DK SOUFCB;:B RESTORE xX of 00964 
965 CLS10 MOVBAX ED1205,0 . SE FESCOD = 120 HWDRDS ¥W2 oO7 90965 
0090213 016201 A 
700214 035000 A 
966 TZAB LGOVsCLsis LOGICAL RECURD OVERLAP ? Of 00°66 
No0215 016123 A 
Goo0216 001010 A ; 
000217 DON222 R | | os 
967 #RBEB FPRECNOePBRC»PRECHD YES. BUM? PHYSICAL RECORD NUMBER O07 00967 
oon220 016145 A 
D0O0fZ2t 126142 A ; 
000222 356145 A | | 
“e & 968 CLS15 MCVBAX FRECNO,3 SET FCBC3) = PHYSICAL RECORD NUMBER V7 00968 
go0#a@23 09461445 4 , 
000224 0895003 aA : ; 
IRM SSS OSE LESSEE TT SES CS ST TE ee o7 00969 
970 ™ CALL INC TO E€LOSE FILE *® C7 00970 
S71 Se REYES EEE Ee ee Oo? 0097: 
oon02f253 0361531 A 972 CL320 LiY PETURN:s B POINT * AT CALL SEQUENCE GC? O0937e2 
0o00e26 035005 & 973 LD S39 A POINT X% AT UPDATECPLEAVE PARAMETER 6? 00973 
goge27 015000 aA 974 L. Ie Den GET UPBDATEVLES¥E PARAMETER tf? OUFl4 
000230 AS ae A, 375 JAZ M43 on? wO09"7S5 
ooo0e3t 800233 R 


ee 
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E.2@ WORTEX LISTING YSRERF PROGRAM PAGE le LISTING PAGE ¢ e635 
gooese® 0104335 A 876 LDA BSte2 SET FLAG FOR UPDATE Oo? 60°97 
900233 906110 A BS?? oral C3490 MERGE IN IODC CLOSE SKELETON WORD Ye O07 0037 
F90e28S4¢ 9003400 A 
000233 116167 A 378 ORA UNITsB OR IN LUN O7 0097 
000236 OSEBQ01E A 979 LOX ANE Bs B POINT * AT ¥SFORTIO DATA BLOCK O7 OUR? 
CO0237 O3S5104 A 380 STR iu IOCONTs x “ STURE I0C CONTROL wORD IN VYVSFOCRTIO O7 8099 
931 NAxX ~NKENT DECREMENT LINK COUNT O07 0098 
990240 913120 A 
000241 005311 A 
000242 355120 A 
e902e43 010464 A 382 LDA on Ge ve o7 ¢0o38e 
"99244 0065053 A 9383 JSR PSJ9k CALL FOC ve nf 0098S 
[00245 O04563 R 
O002e4¢6 036010 A 384 DX ADFCEsB POINT * AT FCE O07 80984 
3985 TRAB RWFLsLFsCL3$30 LOGICAL FILE ? 97 00968 
100247 016154 A 
On00250 906441 A 
°00251 0002354 R 
986 MOVEAX LR$2Z2;0 YES. RESTORE LOGICAL REC SIZE IN FCBCO3 Jf $0986 
QO00e52 016122 A 
ofo0eS3 O55000 A 
-I-PAR SEALS ELASEL SSR ESA ES SE oo? goser 
9se ® TAKE FCB OFF CHAIN ® 1? 00988 
989 SRE ERNE ee ee oF? 40999 
9254 015012 A 390 CLS30 LDA | ins x GET FORWARD LINK oF 00990 
0255 036146 A 391 LOX mL INK» B If 00331 
92356 O05301e A 332 STA 109% HOBK TO PREVIDUS LINK 7 0099¢e 
S93 BF REURS Cc? GOosgos 
994 @ EXIT #® 37 00994 
S95 RCE EMS | OF DOS9S 
Oo0257 010422 A 3936 LDA REx OF googge 
397 PUSHF PUSH EXIT OF ONTO VSFORTIO STACK a? 00997 
o90260 O0S6016 A 
£00261 935000 4 
JO262e 005344 A 
000263 0385000 A 
“60264 005041 A 
390263 036016 A 
0990266 055000 A 
Oo00267 001000 A 398 JMP CAN EXIT TO VsFoRTIO a7 fgog9oe 
"30270 O0006S R 
939 EJEC C/ O39 
1000 FRXRRAMRE EKER K SHARES SETTER CERRO RR ERE CERES OF H1O00 
1001 %¥ Of C1001 
1092 * 4- HOR D DI‘¥ IdodDeE a i « B dst 32 *®# 67 o1dgne 
i903 * xe UY Q1003 
1904 ™ FUNCTION: TO vVIiViBDE A 4-WORD NUMBER BY 10 *¥ Of O1o04 
1003 * * OF O1005 
1006 * ENTRY: PCC = DIVIDEND * OF O1006 
ing? * * Of 02100° 
1008 * EXIT = ACC = ACC L110 * O7 01008 
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aDD ¥V$iLLUP RESTORE A 0 
rJIMP Os% ‘RETURN IF OK a 
(ea eReLEREeSZAST SSA ER SRR RT RT RRR CCE ER RRR RE RRR RAR ES ES 0 
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2 ME Se i 9 2 ee 6 
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y" PROCESS T FORMAT DESCRIFTOR < 

™ FUNCTION: TO PROCESS THE FORMAT DESCRIPTOR: TW 
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" ENTRY! DIRECT FROM FRS 
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= . 
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* ERRORS! ERL IF W OUTSIDE LOGICAL RECORD 

AF OICOOOGIE OE OOO IIE OGIO OCOG ICO IO AOE SI IIR 

TIN E QU. * 
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E.2 VORTEX LISTING VSRERF PROGRAM PAGE é5 LISTING PAGE ¢ 936> 
612? 036010 A 4/721 LDX ADFCEsB V2 of 04721 
4722 MOVBAX PESZ,0 IF NON-RMDs SET FOBCO) = PBS2 Ye 07 04/e2e 
6130 O16i¢43 A 
6131 055000 A 
4723 TRA3O TRAE RWFL»WRsCAN EXIT ON READ D.1 Of O4f23 
6132 0916154 aA 
6iss GO6431 A 
6134 000065 R : , 
6135 O06412 A 42724 PT ZC: CAN EXIT FOR ENCODE/DECODE PFD 0/7 O4/%e4 
6136 cGoocebSs R 
6137 010464 A 4725 LDA cio OF? 04725 
4726 PUSHF WRITE LAST NON-LOGICAL ‘RECORD oF? 04726 
6i4o 036016 4 
6éidi 035000 4 
6lde 005344 A 
6143 085000 a 
6i44 005041 4 
6145 036016 4 . 
6146 055000 8 
6147 001000 A 472? JMF CAN EXIT TO ¥SFOQRTIQ OF O4/fef 
61565 900065 R 
6i51i 016121 A 4728 TRAI LDA LRECNO:s B 07 O4728 
4729 EJEL O7 04723 
ASO SR ee EM EMER OOF 04735 
4731 ™ i ¥ Of OQ4731 
4$7?3c ® UNF ORWAT TE D ITN PUT @ OU EF Per OG ued 6B * Of 04732 
4733 % “ O7 04733 
$734 ™ FUNCTION: TO PROCESS UNFORMATTED I70 CALLS * OG? 04734 
4735 *® * Of 04735 
4736 ™" ENTRY: ITEMAD = LIST ITEM ADDRESS "® G7? C4736 
4737 ™ BFWPT = ADDRESS OF DaTA WORD IN BUFFER *® O07 04737 
4733 ® ¥ Of 04/735 
473939 ™ EXIT : TO ¥SFORTICO THRU GAL * Of 04739 
4740 ® *¥ OF 047490 
hh HE SE HE 00 RE 0 Dare RE me Ee mee Je HOF O44 
4743 BREMNER EW RRR | a7? g47423 
$744 ™ TRANSFER LOOP *, of O47%44 
4745 OR Oe oF o4745 
4746 UID PUSHJ GAL GET NEXT LIST ITEM ABDRESSZERTT Ye O07 04/746 
6132 10595025 A 
61353 BGOL447 F 
474? PUSHJ GEa GET BUFFER ADDRESS Ve O67 G474? 
6134 10302535 aA | 
613535 001103 R 
4748 TSaQs PWFLaWReUIOd TEST INPUT DOR OUTPUT VP Of O4746 
6156 016134 &A . 
6157 006411 A 
6160 006167 R | | 
4749 MEERRM ERS oF” U474 
4750 ” INPUT #* u? 0475 
4751 BRE RRS he 0475 
6161 036025 A 4752 LO BFLPT+B POINT &® AT DeTA WORD IN BUFFER o7 0475 
6162 015000 A 4753 LDA Os GET DATA WORD ; Oo? O475 
6163 036113 A 42754 * LBS ITEMADs B POINT # AT LIST ITEM So? O475 
6164 055000 8 4/55 STA Oe STORE INFUT DATA WERB IN LIST ITEM ff 4/75 
6165 001000 A 42756 JiMP UID LOOP UNTIL DONE j 07? $475 
6166 006152 R a: 
4757 FERRER MEH O/ 04/75 
47358 ™ DUTPUT * Qf 0475 
4759 HER RERE REM Qn? g475 
6167 036112 A 4760 UIO4 LDS ITEMAD, B POINT ™® AT LIST ITEM of ba? s 
6170 015000 A 4°61 LDA Os GET DATA HORE Ue 8476 
6171 936025 A 4762 LDX BFWPTs B POINT * AT DATA WORD IN BUFFER OF 0476 
6172 O55000 A 4763 STA fam STORE DATA WORD IN GUTPUT BUFFER O07 0476 
6173 001000 A 47°64 JP Uid LOMP UNTIL DONE OF Gaze 
6174 GO6B1S52 R 
4765 ESEC : Hf 04276 
A766 MERMRREMCRMRERREK SEVERE RRR EEK RK RE REAR R ER RRRE O 7 NATE 
4767 *® | e UF 8476 
4763 ™ P ROoOeceE $ & * FOR M&A T QBeE $ € RIP TO eRe « KR ITO Roy 9478 
£769 *® ‘ * C? 6476 
4770 ® FUNCTION: TO PROCESS THE FORMAT DESCRIPTOR: NH * 07 D477 
4771 &® * 97 O4Ff- 
o7 72 "© ENTRY: DIRECT FROM FRS : * 07 O477 
oreo = MN = FIELD WIDTH Mf? G477 
ar77q & * O07 847? 
477353 " EXIT =: TO FR * a7 0477 
4°76 # , * 07. 9477 
APP Fe CE RE Me 8 nee eee ee Oe OF OO 
CO06175 R 47793 AKIN ERU * O7 O47? 
O06175 RFR 4780 XOUT EQU * Nn? 0478 
4r°se MOVEBAB BLUNKLis ECHAR LMAD FLANK AS FEPEAT CHARACTER V2 o7 @4°8 
6173 d216e€0e2e A 
B176 O360350 aA , 
4733 NMO¥YBAB Ns COUNT SET REPEAT COUNT Tid WN oF 047283 
617? 016125 A 
6200 33605e aA | 
4784 MOVBAB ABSCE;s ASCE SET SCB Ti BUFFER of 04°84 
6201 9016002 4A 
6e2f02e O83560e1 A wn 
: é7ES PUSHJ ROH REPEAT CHARACTER I/70 N TIMES Ye O07 G4785 
6203 105025 A 
6204 005125 R 


07 04786 


9S7> 
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E.@ VORTEX LISTING V#RERF :; PROGRAM PAGE 6? 7 LISTING PAGE ¢ $383 


6273 000177 A 
4344 PUSHJ ZIO8 OUTPUT CHARACTER 7 07 04844 
6274 105025 A : 
6275 006325 R | | 
| 4345 PUSHJ OCB OUTPUT CHARACTER TO BUFFER 07 04845> 
6276 105025 A 
6277 002452 R 
6300 0901000 A 4846 JMP zi04 LOOP UNTILL DONE 07 04846 
6301 006261 R 
4848 ® TEST INPUT CHARACTER 07 04848 
E302 016030 A 4849 ZID6~ LDA ECHAR»B OF 94843 
6303 006140 A 4350 SUBI “o* 07 04850 
6204 000260 A : 
6305 001004 A 4851 JAN ER3 07 04851 
6306 BOSSES R 
6307 056030 A 4852 STA BCHAR)B 07 04852 
6310 140471 A 4853 SUE TEN 07 04853 
631i 001004 A 4354 JAN 2107 0-9 07 04854 
6312 006324 R | i 
6313 140467 A 4855 SUB SEVEN 07 04855 
6314 001004 A 4856 JAN ERS 07 04856 
6313 OO5365 R 
6316 140467 A 4857 SUB SEVEN 07 04857 
6317 001002 A 4858 JAF ERS 07 048538 
6320 0805365 R 
6321 006129 A 4859 ANDI 020 07 04859 
6322 oooueo aA 3 
6323 056030 A 4860 STA BCHARB 07 04860 
4s61 2107 POPy EXIT 07 04861 
6324 105065 A 
4863 * GENERATE CHARACTER OF 04862 
6225 016111 A 4864 ZIDS8 LDA ICHARSB OF 942864 
6326 006120 A 4865 ADDI =o" 07 04865 
6327 o0026c A 3 
6330 OS6111 A 4866 STA ICHAR:B OF 04866 
6331 006140 A 4867 SUBI 027: o7 04867 
6332 000272 A : . 
6332 Co1004 A 4868 JAN Z109 07 04868 
6334 006337 R 
6335 120467 A 4869 ADD SEVEN GF 04869 
E336 CSELI1 A 4370 STA LCHARSE Cf O4e70 
4871 Z109 POPS EXIT OF 04871 
6337 105065 aA 
4972 EJEC 07 “4872 
48373 ESHER, MSE HE ee EH SE RH HE Jr O4273 
4374 mm. F * O07 04974 
4375 * ¥VSRERR DATA BLOCK Vem C7 04875 
4376 ™ x O07 04876 
L577 AAWARCERKTSKRECRKEREKRAAEAAERKARREKRKSKKRKRKERERKRERKK REAL SERRRERSETRKRARRRMRERMERR YF O4ere 
006340 R 4879 BASE EaL ¥ BASE ADDRESS OF DATA ELOCK B7 O4E79 
4330 IFF NUC FG o7 04880 
48381 GoTo NUCI FG oF 04881 
4882 IFT VII | FG 07 04882 
: 4863 Gotd VII1 | FG o7 04982 
6240 4884 VOPSTP BSS i OP STACK POINTER Fa G67 04894 
6341 0063423 R 4885 WAACC PZE vaAcc ADDRESS OF ACCUMULATOR Acc c7 04885 
6342 006366 R 4896 VABSCB PZE VBSCB ADDRESS OF BUFFER SCE ~ OF 04896 
E242 ase7 vacC Bss 4 4-WORD ACCUNULATOR G7 04887 
6347 006272 R 4883 VACHB PZE VCHE ADDRESS OF DECIMAL DIGIT ARRAY CF g48ee 
6350 4889 VADFCB BSS t BCB/FCB ADDRESS o7 048989 
6351 006422 R 4896 VAFSCE P2E VFSCB ADDRESS OF FORMAT SCB | O7 04890 
6252 006425 R 4891 VAGPAR PZE VGDRP-1 ADDRESS OF *¢* GROUF BLOCK O7 04991 
6353 006447 R 4892 VAISCB PZE VISCB ADDRESS OF LIST ITEM SCB U7? 04892 
63254 4293 VALDC BSS i ALOC ENTRY FLAG , V2 Oo? 04893 
6255 000000 A 4894 VANPOJ DATA J ADDRESS OF VEFORTIO POPS JUMP V2 u? 04694 
6356 4895 VANRB_ BSS i ADDRESS OF ¥SFORTIO DATA BLOCK V2 O07 04895 
6357 006501 R 4896 VAOPST PZE ¥VOPSTK+STKSZ ADDRESS OF OP STACK FG 37 04896 
6360 4897 VAPBF BSS 1 ADDRESS OF PHYSICAL BUFFER $7 04897 
6361 4898 VASCB BSS 1 SCAN BLOCK ADDRESS oF 04998 
6362 4999 VASFL BSS 1 '#* FLAG 97 04890 
6263 006517 R 4900 VASYSB PZE VSYSDC ADDRESS OF SYSTEM DCR a7 04900 
6364 43901 ¥BEXP BSS i BINARY EXPONSNT 27 04903 
6365 4902 VBFWPT BSS } BUFFER WORD POINTER 07 04902 
6366 4902 VESCE BSS 4 BUFFER SCB oF 4902 
6372 4904 ¥CHB 5S i4 DECIMAL DIGIT ARRAY 27 gaand 
6410 4905 YCHBPT BSS i CHB ARRAY POINTER c? 04985 
6411 4906 VCHNHD BSS 1 FCB CHAIN HEATER O97 04906 
6412 4907 VCOUN BSS i COUNTER a7 04907 
6413 4908 VCVFL BSS 1 CHARACTER VALIDITY FLAGS 07 C4903 
6414 4963 ¥D BSS : FRACTIONAL FIELD WIBTH G7 04909 
6415 4910 VDEXP BSS i DECIMAL EXFORENT G7 04910 
6416 4911 VDT BSS 1 WORKING FRACTIONAL FIELD WIDTH OF 04911 
6417 4912 VEDEXP BSS i EXPLICIT BECIMAL EXPONEN o7 04912 
6420 0900000 A 4913 VERN BATA 0 ERRDR NUMBER 7 04912 
6421 4914 VFDLKY BSS 1 FISLD DESCRIPTOR LETTER KEY 07 04914 
6422 $4315 VFSCE BESS 4 FORMAT STRING SCB oF 04915 
6426 4916 YGDRF BSS 9 "c* GROUP DYNAMIC REPEAT COUNT 97 04916 
6437 4917 VIDEXP BSS i IMPLICIT DFCTMAL EXPONENT 7 04917 
644 4313 VIFH ESS 1 INTEGER FIEILD WIDTH 17 94918 
6441 - 4919 VIIBSZ BSS 1 INDIVIDUAL 1TEM BYTE SIZE 07 64919 
6442 000001 A 4920 VIINSZ DATA 1 INDIVIDUAL ITEM WORD SIZE 97 04920 
6443 °- ; 4321 VINFL ESS INIVIAL ENTRY FLAG V2 87 04921 
6444 4922 YIOCON BSS 170 CONTROL WORD 07 04922 
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